<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>ScoreTitle</action>
        <scheme>;;;ScoreTitle
(let ((tag "ScoreTitle") (title ScoreTitle::params))
	(define (blank-title)
			(if (not (d-DirectiveGet-header-postfix tag))
				(begin 
					(d-DirectivePut-header-override tag 0) 
					(d-DirectivePut-header-postfix tag "title = \"\""))))
	(SetScoreHeaderField "title" title)
	(DenemoPrintAllHeaders)		
	(d-PushPosition)
	(blank-title)
	(while (d-NextMovement)
		(blank-title))
	(d-PopPosition))
		</scheme>
        <label>Title</label>
        <tooltip>Prints the name given as a title centered at the start of the score.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
